﻿Imports BlogML.Xml

Public Class ExtendedMLCategory

#Region "Private Fields"
    Private _category As BlogMLCategory
    Private _path As String
#End Region

#Region "Constructors"
    Public Sub New(ByVal category As BlogMLCategory)
        _category = category
    End Sub
#End Region

#Region "Public Properties"
    Public Property Approved() As Boolean
        Get
            Return _category.Approved
        End Get
        Set(ByVal value As Boolean)
            _category.Approved = value
        End Set
    End Property

    Public Property DateCreated() As Date
        Get
            Return _category.DateCreated
        End Get
        Set(ByVal value As Date)
            _category.DateCreated = value
        End Set
    End Property

    Public Property DateModified() As Date
        Get
            Return _category.DateModified
        End Get
        Set(ByVal value As Date)
            _category.DateModified = value
        End Set
    End Property

    Public Property Description() As String
        Get
            Return _category.Description
        End Get
        Set(ByVal value As String)
            _category.Description = value
        End Set
    End Property

    Public Property ID() As String
        Get
            Return _category.ID
        End Get
        Set(ByVal value As String)
            _category.ID = value
        End Set
    End Property

    Public Property ParentRef() As String
        Get
            Return _category.ParentRef
        End Get
        Set(ByVal value As String)
            _category.ParentRef = value
        End Set
    End Property

    Public Property Path() As String
        Get
            Return _path
        End Get
        Set(ByVal value As String)
            _path = value
        End Set
    End Property

    Public Property Title() As String
        Get
            Return _category.Title
        End Get
        Set(ByVal value As String)
            _category.Title = value
        End Set
    End Property
#End Region

End Class
